home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.27 / wbarg / anleitung next >
Text File  |  1995-04-23  |  3KB  |  98 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.                            Anleitung zur Unit WBARGS
  9.  
  10.  
  11.  
  12.  
  13.   Vorwort: Ich habe diese Unit geschrieben, um die Parameterübergabe auf
  14.        der Workbench zu vereinfachen. Mit Parameterübergabe mein ich:
  15.            Projekticon anklicken, Shift-Taste Drücken, das Programmicon
  16.        anklicken und eins von beiden Icons nochmal anklicken. Das
  17.        Programm bekommt dann den Namen und das Verzeichnis des
  18.        Projekts. Natürlich können einem Programm auch mehrere
  19.        Projekte übergeben werden. Wenn man z.B. ein Anzeigeprogramm
  20.        für IFF-Bilder programmiert hat, kann man so eine Slideshow
  21.        realisieren.
  22.  
  23.   Zuerst muß die Unit natürlich eingebunden werden mit:
  24.   FROM MyTools USES WBArgs;
  25.  
  26.   Dann stehen einem folgende Prozedure bzw. Funktionen zur Verfügung:
  27.  
  28.   FUNCTION WBArgNum:INTEGER;
  29.   FUNCTION GetWBArg(ArgumentNummer:INTEGER):STR;
  30.   FUNCTION OpenIconLib:BOOLEAN;
  31.   PROCEDURE CloseIconLib;
  32.  
  33.   So, und jetzt zu den Funktionen im Einzelnen:
  34.   Die Anzahl der mit Shift aktivierte Projekticons erfährt man mit
  35.   anz: INTEGER; { enthält dann die Anzahl der aktivierten Icons }
  36.  
  37.   anz:= WBARGNUM
  38.  
  39.   Es nützt einem natürlich nichts, wenn man nur die Anzahl der Projekt
  40.   Icons weiß, sondern man möchte auch den Namen der Projekte wissen und
  41.   in das Verzeichnis des jeweiligen Projektes Springen, damit man es
  42.   auch aufrufen kann. Das geht mit der Function GETWBARG. Ihr wird die
  43.   Nummer des gewünschten Dateinamens bzw. Projektnamens übergeben und
  44.   als Ergebnis erhält man denn den Namen (Typ STR !!!!). Intern ist
  45.   jetzt schon ins passende Verzeichnis gesprungen worden.
  46.  
  47.   Um das Öffnen der Library braucht Ihr Euch nicht zu kümmern. Das
  48.   geschieht intern. Allerdings könnt Ihr die Library am Ende des
  49.   Programmes mit CloseIconLib; Schließen.
  50.  
  51.   So, das war jetzt vielleicht etwas unverständlich, deswegen jetzt
  52.   mal ein Beispiel. Man möchte alle Argumente ausgeben, die ein
  53.   Program erhalten hat.
  54.  
  55.   VAR i:INTEGER;
  56.  
  57.   BEGIN
  58.    FOR i:= 1 TO WBArgNum DO
  59.     BEGIN
  60.      writeln(GetWBArg(i));
  61.     END;
  62.   END.
  63.  
  64.   Allerdings sollte man hierbei zuerst z.B. ein Consolefenster öffnen,
  65.   damit die Ausgabe auch lesbar ist.
  66.  
  67.   Anmerkung: Wie Ihr nach dem Compilieren des Testprogramm gemerkt habt
  68.          ist das erste Argument das Programm selbst! Erst das zweite
  69.          ist das erste Projekt. Wenn man nur ein Projekt will, dann
  70.          geht das auch einfach, mit projektname:=Getwbarg(2);
  71.          ( Projektname muß vom Typ STR sein.) Wenn projektname=NIL
  72.          dann gabs wohl kein Projekt.
  73.  
  74.   Anbei noch ein Beispielpogramm, daß eine übergebene ASCII Datei in
  75.   ein Fenster ausgibt und nach zweimaligen <Return> dieses dann wieder
  76.   schließt.
  77.  
  78.   Nachwort: Dank an Björn Schotte =8-þ
  79.             Für den Tip. Allerdings müßte, glaube ich
  80.             ^ARRAY[1..MAXINT] OF WBarg; schon im Includefile stehen, wie
  81.             in den alten Includes. Sonst wußte ich schon alles ;-)
  82.  
  83.  
  84.  
  85.  
  86.                   have Fun with it
  87.  
  88.                                    Røgersøft
  89.  
  90.                                                    [mik 28.1.1994]
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.